home *** CD-ROM | disk | FTP | other *** search
/ American History: Interactive Maps & User's Guide / American History: Interactive Maps & User's Guide.iso / pc / TIMESCPE.dxr / 00164.ls < prev    next >
Encoding:
Text File  |  2000-01-25  |  5.5 KB  |  108 lines
  1. on exitFrame
  2.   global gSplit
  3.   hPositionSet()
  4.   set the locH of sprite 1 to ((the locH of sprite 46 - 92) * 64 / 12) - 875
  5.   if the castNum of sprite 39 = the number of member "pixel" then
  6.     case 1 of
  7.       ((the locH of sprite 1 > -930) and (the locH of sprite 1 < -534)):
  8.         hHotRect(4, "hotRect1", -1115, 189, 199, 156)
  9.         hRolCheck(4, 2, 44, 45, -1215, 249, "sailboat.pict", "unit 1.label")
  10.       ((the locH of sprite 1 > -539) and (the locH of sprite 1 < 202)):
  11.         hHotRect(4, "hotRect1", -387, 115, 210, 230)
  12.         hRolCheck(4, 2, 44, 45, -501, 288, "riverboat.pict", "unit 3.label")
  13.       ((the locH of sprite 1 > 197) and (the locH of sprite 1 < 874)):
  14.         hHotRect(4, "hotRect1", 266, 87, 121, 202)
  15.         hRolCheck(4, 2, 44, 45, 206, 243, "cannon.pict", "unit 5.label")
  16.       ((the locH of sprite 1 > 800) and (the locH of sprite 1 < 1546)):
  17.         hHotRect(4, "hotRect1", 938, 106, 109, 165)
  18.         hRolCheck(4, 2, 44, 45, 880, 220, "factory.pict", "unit 7.label")
  19.     end case
  20.     case 1 of
  21.       ((the locH of sprite 1 > -859) and (the locH of sprite 1 < -155)):
  22.         hHotRect(5, "hotRect2", -790, 99, 98, 198)
  23.         hRolCheck(5, 3, 45, 44, -838, 247, "bell.pict", "unit 2.label")
  24.       ((the locH of sprite 1 > -139) and (the locH of sprite 1 < 533)):
  25.         hHotRect(5, "hotRect2", -68, 86, 108, 176)
  26.         hRolCheck(5, 3, 45, 44, -125, 219, "stage.pict", "unit 4.label")
  27.       ((the locH of sprite 1 > 538) and (the locH of sprite 1 < 1221)):
  28.         hHotRect(5, "hotRect2", 628, 114, 137, 219)
  29.         hRolCheck(5, 3, 45, 44, 558, 277, "train.pict", "unit 6.label")
  30.       ((the locH of sprite 1 > 80) and (the locH of sprite 1 < 1620)):
  31.         if gSplit = 1 then
  32.           hHotRect(5, "hotRect2", 1334, 112, 109, 203)
  33.           hRolCheck(5, 3, 45, 44, 1279, 259, "computer.pict3", "epilogue.label")
  34.         else
  35.           if gSplit = 3 then
  36.             hHotRect(5, "hotRect2", 9999, 123, 120, 253)
  37.           end if
  38.         end if
  39.     end case
  40.     hCheckButtons()
  41.   end if
  42.   hScrollCheck()
  43.   if the castNum of sprite 39 <> the number of member "pixel" then
  44.     set the locH of sprite 4 to 9995
  45.     set the locH of sprite 5 to 9995
  46.   end if
  47.   if the castNum of sprite 39 = the number of member "menu" then
  48.     if the castNum of sprite 44 = the number of member "unit 1.label" then
  49.       hMenuRoll(40, "unit1.ch1rev", "unit1.ch1", rect(175, 150, 464, 166))
  50.       hMenuRoll(41, "unit1.ch2rev", "unit1.ch2", rect(175, 167, 464, 183))
  51.       hMenuRoll(42, "unit1.ch3rev", "unit1.ch3", rect(175, 185, 464, 201))
  52.       hMenuRoll(43, "unit1.ch4rev", "unit1.ch4", rect(175, 202, 464, 218))
  53.     end if
  54.     if the castNum of sprite 45 = the number of member "unit 2.label" then
  55.       hMenuRoll(40, "unit2.ch5rev", "unit2.ch5", rect(175, 150, 464, 166))
  56.       hMenuRoll(41, "unit2.ch6rev", "unit2.ch6", rect(175, 167, 464, 183))
  57.       hMenuRoll(42, "unit2.ch7rev", "unit2.ch7", rect(175, 185, 464, 201))
  58.       hMenuRoll(43, "pixel", "pixel", rect(175, 202, 464, 218))
  59.     end if
  60.     if the castNum of sprite 44 = the number of member "unit 3.label" then
  61.       hMenuRoll(40, "unit3.ch8rev", "unit3.ch8", rect(175, 150, 464, 166))
  62.       hMenuRoll(41, "unit3.ch9rev", "unit3.ch9", rect(175, 167, 464, 183))
  63.       hMenuRoll(42, "unit3.ch10rev", "unit3.ch10", rect(175, 185, 464, 201))
  64.       hMenuRoll(43, "pixel", "pixel", rect(175, 202, 464, 218))
  65.     end if
  66.     if the castNum of sprite 45 = the number of member "unit 4.label" then
  67.       hMenuRoll(40, "unit4.ch11rev", "unit4.ch11", rect(175, 150, 464, 166))
  68.       hMenuRoll(41, "unit4.ch12rev", "unit4.ch12", rect(175, 167, 464, 183))
  69.       hMenuRoll(42, "pixel", "pixel", rect(175, 185, 464, 201))
  70.       hMenuRoll(43, "pixel", "pixel", rect(175, 202, 464, 218))
  71.     end if
  72.     if the castNum of sprite 44 = the number of member "unit 5.label" then
  73.       hMenuRoll(40, "unit5.ch13rev", "unit5.ch13", rect(175, 150, 464, 166))
  74.       hMenuRoll(41, "unit5.ch14rev", "unit5.ch14", rect(175, 167, 464, 183))
  75.       hMenuRoll(42, "unit5.ch15rev", "unit5.ch15", rect(175, 185, 464, 201))
  76.       hMenuRoll(43, "pixel", "pixel", rect(175, 202, 464, 218))
  77.     end if
  78.     if the castNum of sprite 45 = the number of member "unit 6.label" then
  79.       hMenuRoll(40, "unit6.ch16rev", "unit6.ch16", rect(175, 150, 464, 166))
  80.       hMenuRoll(41, "unit6.ch17rev", "unit6.ch17", rect(175, 167, 464, 183))
  81.       hMenuRoll(42, "pixel", "pixel", rect(175, 185, 464, 201))
  82.       hMenuRoll(43, "pixel", "pixel", rect(175, 202, 464, 218))
  83.     end if
  84.     if the castNum of sprite 44 = the number of member "unit 7.label" then
  85.       if gSplit = 1 then
  86.         hMenuRoll(40, "unit7.ch18rev", "unit7.ch18", rect(175, 150, 464, 166))
  87.         hMenuRoll(41, "unit7.ch19rev", "unit7.ch19", rect(175, 167, 464, 183))
  88.         hMenuRoll(42, "pixel", "pixel", rect(175, 185, 464, 201))
  89.         hMenuRoll(43, "pixel", "pixel", rect(175, 202, 464, 218))
  90.       else
  91.         if gSplit = 3 then
  92.           hMenuRoll(40, "unit7.ch18rev", "unit7.ch18", rect(175, 150, 464, 166))
  93.           hMenuRoll(41, "unit7.ch19rev", "unit7.ch19", rect(175, 167, 464, 183))
  94.           hMenuRoll(42, "unit7.ch20revb", "unit7.ch20b", rect(175, 185, 464, 201))
  95.           hMenuRoll(43, "pixel", "pixel", rect(175, 202, 464, 218))
  96.         end if
  97.       end if
  98.     end if
  99.     if the castNum of sprite 45 = the number of member "epilogue.label" then
  100.       hMenuRoll(40, "epilogue.rev", "epilogue", rect(175, 150, 464, 166))
  101.       hMenuRoll(41, "pixel", "pixel", rect(175, 167, 464, 183))
  102.       hMenuRoll(42, "pixel", "pixel", rect(175, 185, 464, 201))
  103.       hMenuRoll(43, "pixel", "pixel", rect(175, 202, 464, 218))
  104.     end if
  105.   end if
  106.   go(the frame)
  107. end
  108.